home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ Win Border Width.xpl < prev    next >
Text File  |  1999-06-11  |  1KB  |  47 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\General\Effects"
  5. "NAME"="Window Border Width"
  6. "VERSION"="1.2"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Border Width"
  9. "DESCRIPTION 1"="You can use this settings to specify the width of the border (in pixels) around every window."
  10. "DESCRIPTION 2"="The smallest size is 1, the default is 3 and the maximum is 49."
  11. "AUTHOR"="Xteq Systems"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  14.  
  15. sP="HKCU\Control Panel\Desktop\BorderWidth"
  16.  
  17. 'Called when the Plugin is started
  18. SUB Plugin_Initialize
  19.  i=RegReadValue(sP)
  20.  if IsEmpty(i) then
  21.     Call SetUIElement(1,3)   
  22.  else
  23.     Call SetUIElement(1,i)
  24.  end if
  25.  
  26. END SUB
  27.  
  28. 'Called when the Plugin should validate the Data the user has entered
  29. SUB Plugin_CheckData(ElementIndex)
  30. END SUB
  31.  
  32. 'Called when the Plugin should apply the changes
  33. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  i=GetUIElement(1)
  35.  if i<1 or i>49 then
  36.     Call MsgError("Please use a value bigger than 1 and smaller than 49")
  37.  else
  38.     Call RegWriteValue(sP,i,1)
  39.     Call Restart
  40.  end if
  41.  
  42. END SUB
  43.  
  44. 'Called when the Plugin is about to be removed from memory
  45. SUB Plugin_Terminate
  46. END SUB
  47.